home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 162 / Tiger_Disk_162_19xx_Tiger-Crew-Disk_de_Side_A.d64 / ende - 042 - (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  1KB  |  34 lines
  1. 100 poke53280,.:poke53281,.:printchr$(147);:
  2. 105 a=a+1:ifa=1thenload"+042*",8,1
  3. 106 sys29468
  4. 200 forc=1to10step.9 :poke646,c:print"";
  5. 210 print"[185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185]":poke646,c+1:poke55295,255
  6. 220 print"  und             [146]   [146]   [146]      [146] ":poke646,c+2:gosub500
  7. 225 poke53280,peek(646)
  8. 230 print"  nun          [146]   [146]   [146]   [146]   [146]":poke646,c+3:
  9. 235 poke53280,peek(646)
  10. 240 print"  ist             [146]   [146]   [146]      [146]":poke646,c+4:gosub600
  11. 245 poke53280,peek(646)
  12. 250 print"  alles        [146]   [146]   [146]   [146]      [146]":poke646,c+5:
  13. 255 poke53280,peek(646)
  14. 260 print"  gleich       [146]   [146]      [146]      [146]":poke646,c:gosub500
  15. 265 poke53280,peek(646)
  16. 270 print"[183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]";: nextc:poke53280,.
  17. 280 forz=1to150:next:gosub600
  18. 290 poke54296,0
  19. 300 forz=1to125:next:
  20. 310 print"[215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215][215]";
  21. 320 forz=1to333 :next:
  22. 330 print"[169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223]";
  23. 340 forz=1to250 :next:
  24. 350 print"";
  25. 360 fore2=1to1500:next
  26. 390 poke56325,1:print"[159]                             e  n  d  e ";
  27. 400 poke53280,2 :poke53281,4 :poke646,11
  28. 410 poke56325,55:forz=1to750:next
  29. 415 poke646,peek(53280):print"[147][145]     aus lukian's nonsens-werkstatt     ";
  30. 500 poke54296,15:poke54278,249:poke54276,17:poke54279,129
  31. 505 forn=40to65step.8:poke54273,11+abs(15+n)/2 :next:return
  32. 600 poke54296,15:poke54278,240:poke54276,33
  33. 605 forn=1to18*rnd(0)+4 :poke54273,8+abs(17-n):next:return
  34.